home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
A-COMAL Series
/
(k)aaq.d64
/
z.dat
< prev
Wrap
Text File
|
2007-02-28
|
2KB
|
99 lines
8000 FOR J:=1 TO 4 DO //Z1
8010 PENUP
8020 FORWARD 2
8030 PENDOWN
8040 FORWARD 24
8050 PENUP
8060 BACK 26
8070 LEFT 90
8080 FORWARD 1
8090 RIGHT 90
8100 ENDFOR J
8110 //
8120 FOR J:=1 TO 2 DO // 2
8130 PENDOWN
8140 FORWARD 28
8150 PENUP
8160 BACK 28
8170 LEFT 90
8180 FORWARD 1
8190 RIGHT 90
8200 ENDFOR J
8210 //
8220 FOR J:=1 TO 2 DO // 3
8230 PENDOWN
8240 FORWARD 9
8250 PENUP
8260 FORWARD 13
8270 PENDOWN
8280 FORWARD 6
8290 PENUP
8300 BACK 28
8310 LEFT 90
8320 FORWARD 1
8330 RIGHT 90
8340 ENDFOR J
8350 //
8360 FOR J:=1 TO 22 DO //CROSSR 4
8370 IF J=1 THEN
8380 L:=9
8390 ENDIF
8400 IF J=2 THEN PRINT 3-22
8410 PENDOWN
8420 FORWARD L
8430 PENUP
8440 BACK L-.91
8450 LEFT 90
8460 FORWARD 1
8470 RIGHT 90
8480 ENDFOR J
8490 //
8500 BACK 20
8510 FOR J:=1 TO 2 DO // 5
8520 PENDOWN
8530 FORWARD 6
8540 PENUP
8550 FORWARD 13
8560 PENDOWN
8570 FORWARD 9
8580 PENUP
8590 BACK 28
8600 LEFT 90
8610 FORWARD 1
8620 RIGHT 90
8630 ENDFOR J
8640 //
8650 FOR J:=1 TO 2 DO // 6
8660 PENDOWN
8670 FORWARD 28
8680 PENUP
8690 BACK 28
8700 LEFT 90
8710 FORWARD 1
8720 RIGHT 90
8730 ENDFOR J
8740 //
8750 FOR J:=1 TO 4 DO // 7
8760 PENUP
8770 FORWARD 2
8780 PENDOWN
8790 FORWARD 24
8800 PENUP
8810 BACK 26
8820 LEFT 90
8830 FORWARD 1
8840 RIGHT 90
8850 ENDFOR J
8860 //
8870 FOR J:=1 TO 2 DO // 8
8880 PENUP
8890 FORWARD 11
8900 PENDOWN
8910 FORWARD 6
8920 PENUP
8930 BACK 17
8940 LEFT 90
8950 FORWARD 1
8960 RIGHT 90
8970 ENDFOR J